home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 256 / SOMC Family Forum 256 - Disc 2.iso / Somc / help.dir / 00001_Script_Start Movie next >
Text File  |  1998-10-09  |  2KB  |  86 lines
  1.  
  2. on startMovie
  3.   
  4.   glowclear()
  5.   
  6.   --* This declares the variables for the finger cursor. *
  7.   
  8.   global hpFINGER, hpFINGERMASK
  9.   set hpFINGER to the memberNum of member "Finger1"
  10.   set hpFINGERMASK to the memberNum of member "Finger2"
  11. end startmovie
  12.  
  13.  
  14. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  15.  
  16. on glow WHICHSPRITE, TRUEORFALSE
  17.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  18. end glow
  19.  
  20. --* TURN OF ALL GLOWS ON START
  21. on glowClear
  22.   repeat with i = 50 to 65
  23.     glow(i)
  24.   end repeat
  25. end
  26.  
  27. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  28.  
  29. on textglow WHICHMEMBER, COLORNUMBER
  30.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  31. end textglow
  32.  
  33.  
  34. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  35.  
  36. on openMIAW MYWINDOW
  37.   set myRect=the rect of window MYWINDOW
  38.   set myStage=the rect of the Stage
  39.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  40.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  41.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  42.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  43.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  44.   set the rect of window MYWINDOW=myNewRect
  45.   set the windowType of window MYWINDOW to 2
  46.   open window MYWINDOW
  47. end openMIAW
  48.  
  49. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  50. on doRollout numsprite
  51.   glow(numsprite,FALSE)
  52.   cursor 0
  53. end
  54.  
  55. --* PLAYS A CLICK SOUND
  56.  
  57. on doClick
  58.   puppetsound 1,"clicksound"
  59.   updateStage
  60. end
  61.  
  62. -- Delays for x number of seconds
  63. on timedelay SECONDS 
  64.   startTimer
  65.   repeat while the timer < SECONDS * 60
  66.     nothing
  67.   end repeat    
  68. end
  69.  
  70.  
  71. on doRollover numsprite,SOUNDNUM
  72.   glow(numsprite,TRUE)
  73.   global hpfinger,hpfingermask
  74.   cursor[hpfinger,hpfingermask]
  75.   updatestage  
  76.   case SOUNDNUM of
  77.     1:
  78.       puppetsound 1, "rollsound"
  79.       --  repeat while soundbusy(1)
  80.       --  end repeat
  81.     2:
  82.       puppetsound 1, "rollsound2"
  83.       --  repeat while soundbusy(1)
  84.       --  end repeat      
  85.   end case  
  86.   end